home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / OZZBOT.ZIP / events.ini < prev    next >
INI File  |  1997-03-05  |  32KB  |  456 lines

  1. [Events]
  2. n0=1:ON TEXT:*!master*:#:/master
  3. n1=1:ON JOIN:#:/onjoin
  4. n2=#Autogreet start
  5. n3=1:ON TEXT:!*:#:/if (%autogreet == ON) { fstu }
  6. n4=#Autogreet end
  7. n5=1:ON NICK: {
  8. n6=  seennick
  9. n7=  if (($me isop $chan) && (%protnick == ON)) { nickprot } | %nickl = $level($address($nick,3))
  10. n8=  elseif (%nickl == 600) { .auser 600 $newnick | .guser 600 $newnick 3 | .ruser $nick }
  11. n9=  elseif (%nickl == 500) { .auser 500 $newnick | .guser 500 $newnick 3 | .ruser $nick }
  12. n10=  elseif (%nickl == 400) { .auser 400 $newnick | .guser 400 $newnick 3 | .ruser $nick }
  13. n11=  elseif (%nickl == 300) { .auser 300 $newnick | .guser 300 $newnick 3 | .ruser $nick }
  14. n12=  elseif (%nickl == 200) { .auser 200 $newnick | .guser 200 $newnick 3 | .ruser $nick }
  15. n13=  else { halt }
  16. n14=}
  17. n15=1:ON SERVEROP:#:/serverop
  18. n16=1:ON KICK:#:/seenkick
  19. n17=1:ON DEOP:# {
  20. n18=  if ($nick == $opnick) { halt }
  21. n19=  if (($me isop $chan) && ($nick != $me)) {
  22. n20=    massdeopprot | %deopl = $level($address($opnick,3)) | %deoper = $level($address($nick,3))
  23. n21=    if (%deopl !isnum 300-600) { halt }
  24. n22=    if (%deoper >= %deopl) { halt }
  25. n23=    elseif (%deopl isnum 500-600) { mode $chan -o+o $nick $opnick | no Don't deop my Master }
  26. n24=    elseif (%deopl isnum 300-400) { mode $chan -o+o $nick $opnick | no ((-Protected User-)) }
  27. n25=  }
  28. n26=}
  29. n27=1:ON PART:#:/dp | seenpart
  30. n28=+600:ON PART:#:/if ($nick == $me) { recho 5 I have parted $chan! | begpart } | seenpart
  31. n29=1:ON QUIT:/seenquit
  32. n30=200:ON QUIT:/.ruser $nick | seenquit
  33. n31=<+400:ON KICK:#:/kick400 | seenkick
  34. n32=500:ON KICK:#:/kick500 | seenkick
  35. n33=@500:ON BAN:#:/ban500
  36. n34=1:ON TEXT:*:?:/tex | cm
  37. n35=@200:ON TEXT:up:#:/up
  38. n36=200:ON TEXT:!menu:#:/menu2
  39. n37=500:ON TEXT:!menu:#:/menu5
  40. n38=@200:ON TEXT:down:#:/if ($nick isop $chan) { raw mode $chan -o $nick | i3 }
  41. n39=@500:ON TEXT:up:#:/raw mode $chan +o $nick
  42. n40=@500:ON TEXT:!up*:#:/raw mode $chan +o $parm2
  43. n41=@500:ON TEXT:!down*:#:/mode $chan -o $parm2
  44. n42=500:ON TEXT:!shit*:#:/shit
  45. n43=500:ON TEXT:!part:#:/part $chan
  46. n44=500:ON TEXT:!version:#:/notice $chan 4,1 $read $mIRCdirrandver.txt %version | i3
  47. n45=500:ON TEXT:*!vote*:#:/gvote
  48. n46=+600:ON TEXT:*!die*:#:/die
  49. n47==999:ON JOIN:#:/ban $chan $nick 2 | kick $chan $nick (-╒zZ ShitList-) | seenjoin
  50. n48==999:ON TEXT:*:#:/ban $chan $nick 2 | kick $chan $nick
  51. n49==999:ON ACTION:*:#:/ban $chan $nick 2 | kick $chan $nick
  52. n50==999:ON TEXT:*:*:/shitboss
  53. n51=#ping start
  54. n52=1:ON TEXT:ping*:#:/askping
  55. n53=1:ON TEXT:*ping*me*:#:/askping
  56. n54=1:ON TEXT:*me*ping:#:/askping
  57. n55=#ping end
  58. n56=@1:ON TEXT:*:#:/textflood
  59. n57=@1:ON ACTION:*:#:/actionflood
  60. n58=1:ON DEOP:#:/massdeopprot | rdeop
  61. n59=1:ON NOTICE:*:*:/noticeprot | halt
  62. n60=1:ON CTCPREPLY:PING*:/ping
  63. n61=1:ON SNOTICE:*:/halt
  64. n62=1:ON ERROR:*:/error
  65. n63=1:ON CHAT:ACTION *:/relay 6* $nick $parm2* | relaybots 6* $nick $parm2*
  66. n64=1:ON CHAT:.*: {
  67. n65=  %l = $read -s $+ $nick userchats.txt
  68. n66=  if ($level(%l) == 600) { goto 600 } | elseif ($level(%l) == 500) { goto 500 } | elseif ($level(%l) == 400) { goto 400 } | elseif ($level(%l) == 300) { goto 300 } | elseif ($level(%l) == 200) { goto 200 } | else { goto none }
  69. n67=  :600
  70. n68=  if ($parm1 == .fsreset) { unset %ozzpop | unset %insult | unset %8ball | unset %lame | unset %dope | unset %countvp | unset %countwv | unset %countseen | do Fun Stuff Counter Reset!! | halt }
  71. n69=  elseif ($parm1 == .menu) { goto 600dcc }
  72. n70=  elseif ($parm1 == .shutdown) { relay PartyLine is in the process of shutting down!! | close -c | unset %rwnick | unset %wait | .write -c userchats.txt | .write -c hostchats.txt | unset %linkbots | halt }
  73. n71=  elseif ($parm1 == .hours) {
  74. n72=    if ($parm2 != $null) {
  75. n73=      %hourschannel = $parm2 | if ($parm2 ischan) { play -c %hourschannel $mIRCdirTime.txt 50 | do Now playing hours to $parm2 }
  76. n74=    }
  77. n75=    else { do Correct Syntax: .hours <channel> }
  78. n76=    halt
  79. n77=  }
  80. n78=  elseif ($parm1 == .rshit) { .rlevel =999 | do I am removing all users that are Shitlisted! | halt }
  81. n79=  elseif ($parm1 == .link) {
  82. n80=    if ($parm2 == $null) { do Correct Syntax: .link <bots nick> | halt } | %wait = %wait $parm2 | do I am trying to link with $parm2 | ctcp $parm2 link | halt
  83. n81=  }
  84. n82=  elseif ($parm1 == .unlink) {
  85. n83=    if ($parm2 == $null) { do Correct Syntax: .unlink <bots nick> | halt }
  86. n84=    if ($parm2 isin %linkbots) { %linkbots = $remove(%linkbots,$parm2) | close -c $parm2 | do 6*** I have unlinked from $parm2 $+  | relay *** $parm2 and $me have unlinked | halt }
  87. n85=    else { do I am not linked to $parm2 } | halt
  88. n86=  }
  89. n87=  elseif ($parm1 == .motd) {
  90. n88=    if ($parm2 == $null) { do Correct Syntax: .motd <message> }
  91. n89=    else { .write -dsmotd messages.txt | .write messages.txt motd $parm2* | do New MOTD set } | halt
  92. n90=  }
  93. n91=  elseif ($parm1 == .agmsg) {
  94. n92=    if ($parm2 == $null) { do Correct Syntax: .agmsg <message> }
  95. n93=    else { .write -dsautogreet messages.txt | .write messages.txt autogreet $parm2* | do New AutoGreet Message set } | halt
  96. n94=  }
  97. n95=  elseif ($parm1 == .add500) {
  98. n96=    if ($parm2 == $null) { do Correct Syntax: .add500 <nick> | halt } | .auser 500 $parm2 | .guser 500 $parm2 3 | do $parm2 has been added to level 500 | notice $parm2 You Have Been Added To Level 500 All commands are done through DCC so type /DCC CHAT $me | halt
  99. n97=  }
  100. n98=  elseif ($parm1 == .ruser) {
  101. n99=    if ($parm2 == $null) { do Correct Syntax: .ruser <nick> | halt } | .ruser $parm2 | .ruser $parm2 3 | do $parm2 has been removed | halt
  102. n100=  }
  103. n101=  elseif ($parm1 == .nick) {
  104. n102=    if ($parm2 == $null) { do Correct Syntax: .nick <nick> | halt } | nick $parm2 | halt
  105. n103=  }
  106. n104=  elseif ($parm1 == .idtime) {
  107. n105=    if ($parm2 == $null) { do Correct Syntax: .idtime <seconds> | halt } | %itim = $parm2 | do Time between each anti-idle is now %itim seconds. This will take effect the next time I connect. | halt
  108. n106=  }
  109. n107=  elseif ($parm1 == .noop) { %noop = ON | do NOOP = ON | halt }
  110. n108=  elseif ($parm1 == .rnoop) { %noop = OFF | do NOOP = OFF | halt }
  111. n109=  elseif ($parm1 == .ignore) {
  112. n110=    if ($parm2 == $null) { do Correct Syntax: .ignore <mask> | halt } | .ignore -a $parm2 | halt
  113. n111=  }
  114. n112=  elseif ($parm1 == .autogreet) { %AutoGreet = ON | .enable #autogreet | do AutoGreet = ON | halt }
  115. n113=  elseif ($parm1 == .dautogreet) { %AutoGreet = OFF | .disable #autogreet | do AutoGreet = OFF | halt }
  116. n114=  elseif ($parm1 == .resetc) { .remini join.ini channels | .remini join.ini date }
  117. n115=  elseif ($parm1 == .resett) { %total = 0 | %tdate = $adate | do I have reset total join counter | halt }
  118. n116=  elseif ($parm1 == .pollreset) { %best = 0 | %sucks = 0 | %ok = 0 | unset %voted* | unset %nickv* | set %totalvoted 0 | .remove voted.ini | do Voting Poll Reset | halt }
  119. n117=  elseif ($parm1 == .login) { %login = ON | do Login = ON | halt }
  120. n118=  elseif ($parm1 == .rlogin) { %login = OFF | do Login = OFF | halt }
  121. n119=  elseif ($parm1 == .onping) { .enable #ping | do Ping Reply = ON | halt }
  122. n120=  elseif ($parm1 == .offping) { .disable #ping | do Ping Reply = OFF | halt }
  123. n121=  elseif ($parm1 == .vptopic) {
  124. n122=    if ($parm2 == $null) { do Correct Syntax: .vptopic <topic> | halt } | %vptopic = $parm2* | do Voting Poll topic set to: %vptopic | halt
  125. n123=  }
  126. n124=  elseif ($parm1 == .protautogreet) { prota }
  127. n125=  elseif ($parm1 == .begon) { do I will now ask for ops if I am not opped!! | %opsbeg = ON | halt }
  128. n126=  elseif ($parm1 == .begoff) { do I will not ask for ops if I am not opped!! | .timer105 off | .timer106 off | .timer107 off | %opsbeg = OFF | halt }
  129. n127=  elseif ($parm1 == .funig) { funigp }
  130. n128=  elseif ($parm1 == .toggles) { toggles | halt }
  131. n129=  elseif ($parm1 == .textpro) { %prottext = ON | do Text Flood Protection = %prottext | halt }
  132. n130=  elseif ($parm1 == .rtextpro) { %prottext = OFF | do Text Flood Protection = %prottext | halt }
  133. n131=  elseif ($parm1 == .actionpro) { %protaction = ON | do Action Flood Protection = %protaction | halt }
  134. n132=  elseif ($parm1 == .ractionpro) { do Action Flood Protection = %protaction | %protaction = OFF | halt }
  135. n133=  elseif ($parm1 == .mdpro) { do Mass Deop Protection = %protmd | %protmd = ON | halt }
  136. n134=  elseif ($parm1 == .rmdpro) { do Mass Deop Protection = %protmd | %protmd = OFF | halt }
  137. n135=  elseif ($parm1 == .cjpro) { do Clone/Join Flood Protection = %protcj | %protcj = ON | halt }
  138. n136=  elseif ($parm1 == .rcjpro) { do Clone/Join Flood Protection = %protcj | %protcj = OFF | halt }
  139. n137=  elseif ($parm1 == .agpro) { do AutoGreet Flood Protection = ON | %protag = ON | halt }
  140. n138=  elseif ($parm1 == .ragpro) { do AutoGreet Flood Protection = OFF | %protag = OFF | halt }
  141. n139=  elseif ($parm1 == .configtext) { %tnum = $parm2 | %ttime = $parm3 | do Text Flood Protection set for  $+ %tnum $+  public text lines in the period of  $+ %ttime $+  seconds. | halt }
  142. n140=  elseif ($parm1 == .configaction) { %anum = $parm2 | %atime = $parm3 | do Action Flood Protection set for  $+ %anum $+  public action lines in the period of  $+ %atime $+  seconds. | halt }
  143. n141=  elseif ($parm1 == .configmd) { %mnum = $parm2 | %mtime = $parm3 | do Mass Deop Protection set for  $+ %mnum $+  deops in the period of  $+ %mtime $+  seconds. | halt }
  144. n142=  elseif ($parm1 == .configcj) { clp | dec %cljnum | halt }
  145. n143=  elseif ($parm1 == .confignick) { %nknum = $parm2 | %nktime = $parm3 | do Text Flood Protection set for  $+ %nknum $+  nick changes in the period of  $+ %nktime $+  seconds. | halt }
  146. n144=  elseif ($parm1 == .NCKPRO) { %protnick = ON | .enable #NICK | do [Nick Flood Prot]  = ON | halt }
  147. n145=  elseif ($parm1 == .rNCKPRO) { %protnick = OFF | .disable #NICK | do [Nick Flood Prot]  = OFF | halt }
  148. n146=  elseif ($parm1 == .hackpro) { %protsop = ON | .enable #groupHACK | do [ServerOp Protection]  = ON | halt }
  149. n147=  elseif ($parm1 == .rhackpro) { %protsop = OFF | .disable #groupHACK | do [ServerOp Protection]  = OFF | halt }
  150. n148=  elseif ($parm1 == .dcctpro) { do DCC Text Flood Protection = ON | %protdcc = ON | halt }
  151. n149=  elseif ($parm1 == .rdcctpro) { do DCC Text Flood Protection = OFF | %protdcc = OFF | halt }
  152. n150=  elseif ($parm1 == .configdcct) { %dnum = $parm2 | %dtime = $parm3 | do DCC Text Flood Protection set for  $+ %dnum $+  public text lines in the period of  $+ %dtime $+  seconds. | halt }
  153. n151=  elseif ($parm1 == .floodprot) { floodprot | halt }
  154. n152=  elseif ($parm1 == .seen) { %sseen = ON | do Seen = ON | halt }
  155. n153=  elseif ($parm1 == .rseen) { %sseen = OFF | do Seen = OFF | halt }
  156. n154=  elseif ($parm1 == .nonvoters) {
  157. n155=    if ($parm2 == $null) { do Correct Syntax: .nonvoters <channel> | halt }
  158. n156=    if ($parm2 !ischan) { do I have to be in $parm2 to find nonvoters | halt } | do Seaching for people, in $parm2 $+ , who have not voted | uset | unset %per* | .enable #snovoters | who $parm2 | halt
  159. n157=  }
  160. n158=  elseif ($parm1 == .choices) {
  161. n159=    if ($parm2 == $null) { do Correct Syntax: .choices <choice> <choice> <choice> | halt } | %choice1 = $parm2 | %choice2 = $parm3 | %choice3 = $parm4 | do Voting Poll Categories are now %choice1 $+ , %choice2 $+ , and %choice3 | halt
  162. n160=  }
  163. n161=  elseif ($parm1 == .setpassword) { %password = $parm2 | do New Password set to4 %password  | halt }
  164. n162=  elseif ($parm1 == .rinfodcc) { %rinfo = dcc | do Report Info is set for through DCC | halt }
  165. n163=  elseif ($parm1 == .rinfodde) { %rinfo = dde | do Report info is set for through DDE | halt }
  166. n164=  elseif ($parm1 == .disconnect) { quit | halt }
  167. n165=  elseif ($parm1 == .server) {
  168. n166=    if ($parm2 == $null) { do Correct Syntax: .server <server> <port> | halt } | server $parm2 $parm3 | halt
  169. n167=  }
  170. n168=  elseif ($parm1 == .die) { do C-YA!!!!!!! | relay Partyline is Shutting Down! | close -c | .rlevel -r 600 | unset %rwnick | unset %linkbots | unset %wait | .write -c userchats.txt | .write -c hostchats.txt | quit | exit | halt }
  171. n169=  elseif ($parm1 == .su#game) { %max# = $parm2 | %guess = $parm3 | do Max Number: %max# Guesses: %guess | halt }
  172. n170=  elseif ($parm1 == .reset#game) { %number = $rand(1,%max#) | unset part* | unset %trys* | %#game = OFF | ng }
  173. n171=  elseif ($parm1 == .reset#sb) { unset %win* | do ScoreBoard Reset | halt }
  174. n172=  :500
  175. n173=  if ($parm1 == .botstats) { botstats | halt }
  176. n174=  elseif ($parm1 == .menu) { goto 500dcc }
  177. n175=  elseif ($parm1 == .msg) {
  178. n176=    if ($parm3 == $null) { do Correct Syntax: .msg <nick> <message> | halt } | msg $parm2 $parm3* | dcccom | halt
  179. n177=  }
  180. n178=  elseif ($parm1 == .kickban) {
  181. n179=    if (($parm3 != $null) && ($parm2 != $null) {
  182. n180=      if ($parm2 !ischan) { do I am not on $parm2 | halt }
  183. n181=      if ($me isop $parm2) { ban $parm2 $parm3 2 | kick $parm2 $parm3* (From $nick | dcccom }
  184. n182=      else { do I do not have ops in $parm2}
  185. n183=    }
  186. n184=    else { do Correct Syntax: .kickban <channel> <nick> | halt } | halt
  187. n185=  }
  188. n186=  elseif ($parm1 == .banpl) { %b = $read -s $+ $parm2 userchats.txt | if (%b == $null) { do $parm2 is not on the Partyline. | halt } | .auser 6 $parm2 | .auser 6 $parm2 2 | close -c $parm2 | notice $parm2 YOU ARE BANNED FROM THE PARTYLINE! | relay 6*** $parm2 has Left ╒zZ▀╓T's PartyLine | do 6*** $parm2 was kicked and banned from ╒zZ▀╓T's PartyLine | relaybots 6*** $parm2 has Left ╒zZ▀╓T's PartyLine | unpl $parm2 | goto f }
  189. n187=  elseif ($parm1 == .boot) { %b = $read -s $+ $parm2 userchats.txt | if (%b == $null) { do $parm2 is not on the Partyline. | halt } | close -c $parm2 | notice $parm2 you were kicked off of the partyline by $nick ( $+ $parm3* $+ ) | relay 6*** $parm2 has Left ╒zZ▀╓T's PartyLine | do 6*** $parm2 was kicked off ╒zZ▀╓T's PartyLine | relaybots 6*** $parm2 has Left ╒zZ▀╓T's PartyLine | unpl $parm2 | goto f }
  190. n188=  elseif ($parm1 == .atopic) {
  191. n189=    if ($parm2 == $null) { do Correct Syntax: .topic <channel> | halt }
  192. n190=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  193. n191=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | topic $parm2 2Vote on the Topic 8,1 %vptopic  2by typing 4 $+ %choice1 $+ , %choice2 $+ , or %choice3 | dcccom | halt
  194. n192=  }
  195. n193=  elseif ($parm1 == .stopic) {
  196. n194=    if ($parm2 == $null) { do Correct Syntax: .stopic <channel> | halt }
  197. n195=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  198. n196=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | unset %per* | pervp | topic $parm2 8,1 %vptopic  $+ : 4Voted %choice1 $+ :5 %best 3( $+ %perbest $+ ) 4 Voted %choice2 $+ :5 %ok 3( $+ %perok $+ ) 4 Voted %choice3 $+ :5 %sucks 3( $+ %persucks $+ ) | dcccom | halt
  199. n197=  }
  200. n198=  elseif ($parm1 == .add200) {
  201. n199=    if ($parm2 == $null) { do Correct Syntax: .add200 <nick> | halt } | .auser 200 $parm2 | .guser 200 $parm2 3 | recho 5 $parm2 has been added to level 200 | notice $parm2 You Have Been Added To Level 200  All commands are done through DCC so type /DCC CHAT $me | halt
  202. n200=  }
  203. n201=  elseif ($parm1 == .add300) {
  204. n202=    if ($parm2 == $null) { do Correct Syntax: .add300 <nick> | halt } | .auser 300 $parm2 | .guser 300 $parm2 3 | recho 5 $parm2 has been added to level 300 | notice $parm2 You Have Been Added To Level 300  All commands are done through DCC so type /DCC CHAT $me | halt  
  205. n203=  }
  206. n204=  elseif ($parm1 == .add400) {
  207. n205=    if ($parm2 == $null) { do Correct Syntax: .add400 <nick> | halt } | .auser 400 $parm2 | .guser 400 $parm2 3 | recho 5 $parm2 has been added to level 400 | notice $parm2 You Have Been Added To Level 400  All commands are done through DCC so type /DCC CHAT $me | halt
  208. n206=  }
  209. n207=  elseif ($parm1 == .ruser) {
  210. n208=    if ($parm2 == $null) { do Correct Syntax: .ruser <nick> | halt }
  211. n209=    if (($nick == $me) || ($dde mirc nickname "") { do Cannot remove master or me. }
  212. n210=    else { .ruser $parm2 | .ruser $parm2 3 | do $parm2 has been removed } | halt
  213. n211=  }
  214. n212=  elseif ($parm1 == .massop) {
  215. n213=    if (($parm2 == $null) || ($parm3 == $null)) { do Correct Syntax: .massop <channel> <nick> <nick> <nick> <nick> <nick> <nick> | halt }
  216. n214=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  217. n215=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | raw mode $parm2 +oooooo $parm3 $parm4 $parm5 $parm6 $parm7 $parm8 | dcccom | halt
  218. n216=  }
  219. n217=  elseif ($parm1 == .massdeop) {
  220. n218=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .massdeop <channel> <nick> <nick> <nick> <nick> <nick> <nick> | halt }
  221. n219=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  222. n220=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | raw mode $parm2 -oooooo $parm3 $parm4 $parm5 $parm6 | dcccom | halt
  223. n221=  }
  224. n222=  elseif ($parm1 == .join) {
  225. n223=    if ($parm2 ischan) { do I am already on $parm2 }
  226. n224=    else { join $parm2 | dcccom } | halt
  227. n225=  }
  228. n226=  elseif ($parm1 == .part) {
  229. n227=    if ($parm2 ischan) { part $parm2 | dcccom }
  230. n228=    else { do I am not on $parm2 } | halt
  231. n229=  }
  232. n230=  elseif ($parm1 == .shit) {
  233. n231=    if ($parm2 == $null) { do Correct Syntax: .shit <nick> <channel> | halt } | .auser =999 $parm2 | .guser =999 $parm2 2 | .guser =999 $parm2 3 | do Shitlist Updated!!!
  234. n232=    if ($parm2 ison $parm3) { ban $parm3 $parm2 2 | .timer 1 3 kick $parm3 $parm2 ((-╒zZ SHiT KiCk- from $nick $+ )) | dcccom } | halt
  235. n233=  }
  236. n234=  elseif ($parm1 == .clearmode) {
  237. n235=    if ($parm2 == $null ) { do Correct Syntax: .clearmode <channel> | halt }
  238. n236=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  239. n237=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | mode $parm2 -impslk+tn | dcccom | halt
  240. n238=  }
  241. n239=  elseif ($parm1 == .lagstats) { lagstats | halt }
  242. n240=  elseif ($parm1 == .funstuff) {
  243. n241=    if ($parm2 == $null ) { do Correct Syntax: .funstuff <channel> | halt }
  244. n242=    if ($parm2 !ischan) { do I am not on $parm2 | halt } | %fschan = $parm2 | funstuff | dcccom | halt
  245. n243=  }
  246. n244=  elseif ($parm1 == .fscounter) { fst | halt }
  247. n245=  elseif ($parm1 == .vote) { 
  248. n246=    if ($parm2 == $null ) { do Correct Syntax: .vote <channel> | halt }
  249. n247=    if ($parm2 !ischan) { do I am not on $parm2 | halt } | unset %per* | uset | .enable #snovoters | set %rawvote yes | set %adchan $parm2 | who %adchan | dcccom | halt
  250. n248=  }
  251. n249=  elseif ($parm1 == .howmany) { do A total of %totalvoted people have voted on the topic 8,1 %vptopic  | halt }
  252. n250=  elseif ($parm1 == .scan) {
  253. n251=    if (%sscan == ON) {
  254. n252=      if ($parm2 == $null) { do Correct Syntax: .scan <channel> | halt }
  255. n253=      if ($parm2 !ischan) { do I have to be on $parm2 in order to scan it | halt } | .enable #rawscan | unset %SCN | do 4Scanning $parm2 $+ ....Please Wait | %SCN = $parm2 | %nnick = $nick | scan
  256. n254=    }
  257. n255=    else { d Sorry, Scan is BUSY!! } | dcccom | halt
  258. n256=  }
  259. n257=  :400
  260. n258=  if ($parm1 == .unban) {
  261. n259=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .unban <channel> <mask> }
  262. n260=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  263. n261=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | mode $parm2 -b $parm3 | dcccom | halt
  264. n262=  }
  265. n263=  elseif ($parm1 == .menu) { goto 400dcc }
  266. n264=  elseif ($parm1 == .ban) {
  267. n265=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .ban <channel> <nick> | halt }
  268. n266=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  269. n267=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
  270. n268=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to ban myself? | halt } | ban $parm2 $parm3 3 | notice $parm3 You were banned by $nick ((-╒zZ Ban-)) | dcccom | halt
  271. n269=  }
  272. n270=  elseif ($parm1 == .hostban) {
  273. n271=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .hostban <channel> <nick> | halt }
  274. n272=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  275. n273=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
  276. n274=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to ban myself? | halt } | ban $parm2 $parm3 2 | notice $parm3 You were banned by $nick ((-╒zZ Ban-)) | dcccom | halt
  277. n275=  }
  278. n276=  elseif ($parm1 == .kick) {
  279. n277=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .kick <channel> <nick> <msg> | halt }
  280. n278=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  281. n279=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
  282. n280=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to kick myself? | halt }
  283. n281=    if ($parm3 !ison $parm2) { do $parm3 is not on $parm2 | halt } | kick $parm2 $parm3* (From $nick | dcccom | halt
  284. n282=  }
  285. n283=  :300
  286. n284=  if ($parm1 == .deop) {
  287. n285=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .deop <channel> <nick> | halt }
  288. n286=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  289. n287=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
  290. n288=    if ($parm3 !isop $parm2) { do $parm3 is not opped in $parm2 | halt }
  291. n289=    if ($parm3 == $me) { do Do you actually think I'm stupid enough to deop myself? | halt }
  292. n290=    if ($nick !ison $parm2) { do $parm2 is not on $parm3 | halt } | .raw mode $parm2 -o $parm3 | notice $parm3 You were Deopped by $nick | dcccom | halt
  293. n291=  }
  294. n292=  elseif ($parm1 == .menu) { goto 300dcc }
  295. n293=  elseif ($parm1 == .say) {
  296. n294=    if (($parm3 == $null) || ($parm2 == $null)) { do Correct Syntax: .say <channel> <message> }
  297. n295=    if ($parm2 !ischan) { do I am not on $parm2 | halt } | msg $parm2 $parm3* | dcccom | halt
  298. n296=  }
  299. n297=  elseif ($parm1 == .invite) {
  300. n298=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .invite <nick> <channel> | halt }
  301. n299=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  302. n300=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
  303. n301=    if ($nick ison $parm2) { do $parm2 is already in $parm3 | halt } | .invite $parm2 $parm3 | dcccom | halt
  304. n302=  }
  305. n303=  :200
  306. n304=  if ($parm1 == .access) {
  307. n305=    if ($parm2 == $null) { do Correct Syntax: .access <nick> | halt } 
  308. n306=    else { .enable #access | set %waccess =$nick | set %getaccessnick $parm2 | whois $parm2 | set %acs OFF | .timer 1 10 set %acs ON | dcccom } | halt
  309. n307=  }
  310. n308=  elseif ($parm1 == .menu) { goto 200dcc }
  311. n309=  elseif ($parm1 == .op) {
  312. n310=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .op <channel> <nick> | halt }
  313. n311=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  314. n312=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt }
  315. n313=    if ($parm3 !ison $parm2) { do $parm3 is not on $parm2 | halt }
  316. n314=    if ($parm3 isop $parm2) { do $parm3 is already opped in $parm2 | halt }
  317. n315=    if ($level(%l) >= 500) { raw mode $parm2 +o $parm3 | notice $parm3 You were Opped by $nick | halt } | if (%noop != ON) { raw mode $parm2 +o $parm3 | no $parm3 You were Opped by $nick } | else { no Sorry the channel is in NOOP mode } | dcccom | halt
  318. n316=  }
  319. n317=  elseif ($parm1 == .topic) {
  320. n318=    if (($parm2 == $null ) || ($parm3 == $null)) { do Correct Syntax: .topic <channel> <topic> | halt }
  321. n319=    if ($parm2 !ischan) { do I am not on $parm2 | halt }
  322. n320=    if ($me !isop $parm2) { do I am not opped in $parm2 | halt } | topic $parm2 $parm3* | dcccom | halt
  323. n321=  }
  324. n322=  elseif ($parm1 == .help) { 
  325. n323=    if ($parm2 == $null) { d 5For a list of Commands type 4.menu | d 5For help on those commands type 4.help <command> | halt }
  326. n324=    if (($parm2 isin %600dcc) || ($parm2 isin %600dcc2) || ($parm2 isin %500dcc) || ($parm2 isin %400dcc) || ($parm2 isin %300dcc) || ($parm2 isin %200dcc)) { play -t $+ $parm2 =$nick dcc.txt 5 }
  327. n325=    else { do There is no help information on $parm2 } | halt
  328. n326=  }
  329. n327=  else { do What? Try 4.help | halt }
  330. n328=  halt
  331. n329=  :none
  332. n330=  if ($parm1 == .menu) { goto fsdcc } | else { do You do not have any access | halt }
  333. n331=  halt
  334. n332=  :600dcc
  335. n333=  d 5Owner Commands
  336. n334=  d 4 $+ %600dcc
  337. n335=  d 4 $+ %600dcc2
  338. n336=  :500dcc
  339. n337=  d 5Level 500 Commands
  340. n338=  d 4 $+ %500dcc
  341. n339=  :400dcc
  342. n340=  d 5Level 400 Commands
  343. n341=  d 4 $+ %400dcc
  344. n342=  :300dcc
  345. n343=  d 5Level 300 Commands
  346. n344=  d 4 $+ %300dcc
  347. n345=  :200dcc
  348. n346=  d 5Level 200 Commands
  349. n347=  d 4 $+ %200dcc
  350. n348=  :fsdcc
  351. n349=  d 5Fun Commands
  352. n350=  d 4 $+ %funcommands !who !who <Linked Bot>
  353. n351=  d -
  354. n352=  d 2For help on a command type 7.help <command>
  355. n353=  d 2ex. 7.help .op or 7.help .deop
  356. n354=  :f
  357. n355=}
  358. n356=1:ON CHAT:!*: {
  359. n357=  dccprot
  360. n358=  if ($parm1 == !Who) {
  361. n359=    if ($parm2 == $me) { do Correct Syntax: !who | halt }
  362. n360=    if ($parm2 == $null) {
  363. n361=      msg =$nick 6*** The Following People are on $me $+ : | %w = 1
  364. n362=      :start
  365. n363=      if ($chat(%w) == $null) { msg =$nick 6*** End of !Who list. | halt }
  366. n364=      if ($chat(%w) isin %linkbots) { msg =$nick %w $+ .7 $chat(%w) (bot) | goto next }
  367. n365=      if ($chat(%w).status == active) { msg =$nick %w $+ .2 $chat(%w) } | else { msg =$nick %w $+ .2 $chat(%w) 4Waiting For Connection }
  368. n366=      :next
  369. n367=      inc %w
  370. n368=      goto start
  371. n369=    }
  372. n370=    else { names }
  373. n371=    halt
  374. n372=  }
  375. n373=  elseif ($parm1 == !names) { 
  376. n374=    if ($nick isin %linkbots) {
  377. n375=      msg =$nick !namesr $parm2 6*** The Following People are on $me $+ : | %w = 1
  378. n376=      :start
  379. n377=      if ($chat(%w) == $null) { msg =$nick !namesr $parm2 6*** End of !Who list. | halt }
  380. n378=      if ($chat(%w) isin %linkbots) { msg =$nick !namesr $parm2 %w $+ .7 $chat(%w) (bot) | goto next }
  381. n379=      if ($chat(%w).status == active) { msg =$nick !namesr $parm2 %w $+ .2 $chat(%w) } | else { msg =$nick !namesr $parm2 %w $+ .2 $chat(%w) 4Waiting For Connection }
  382. n380=      :next
  383. n381=      inc %w
  384. n382=      goto start
  385. n383=    }
  386. n384=  }
  387. n385=  elseif ($parm1 == !namesr) { if ($nick isin %linkbots) { msg = $+ $parm2 $parm3* } }
  388. n386=  elseif ($parm1 == !#=) {
  389. n387=    if (%#game != ON) { do Sorry there is no game playing right now.  To start a new game type !#game | halt }
  390. n388=    if ($parm2 == $null) { do Correct Format: !#= <number> | halt }
  391. n389=    if ($nick !isin %part) { inc %part1 | %part = %part $nick }
  392. n390=    %difnum = %number - $parm2 | %difnum = $abs(%difnum)
  393. n391=    inc %trys $+ $nick
  394. n392=    if ([ %trys [ $+ [ $nick ] ] ] > %guess) { Halt }
  395. n393=    if ($parm2 == %number) { relay 4Yahoo! $nick got the number in [ %trys [ $+ [ $nick ] ] ] try(s)! There were %part1 participant(s),5 %part $+ 4, in the game. The number was5 %number $+ 4.  Type2 !sb 4to see the ScoreBoard. | do 4You guessed the number,5 %number $+ 4, in [ %trys [ $+ [ $nick ] ] ] try(s)! There were %part1 participant(s),5 %part $+ 4, in the game.  Type2 !sb 4to see the ScoreBoard. | %#game = OFF | unset %part* | unset %trys* | inc %win $+ $nick }
  396. n394=    else {
  397. n395=      if (($parm2 < 1) || ($parm2 > %max#)) { do Numbers only between 1 and %max# count! | halt }
  398. n396=      elseif (%difnum isnum 1-20) { do Very Very Close!!! (4Hot) }
  399. n397=      elseif (%difnum isnum 21-100) { do Very Close (5Warm) }
  400. n398=      elseif (%difnum isnum 101-175) { do sorta close (11Heated) }
  401. n399=      elseif (%difnum isnum 176-250) { do Not too close (10Chilled) }
  402. n400=      elseif (%difnum isnum 251-325) { do Far (12Cold) }
  403. n401=      elseif (%difnum isnum 326-400) { do Very Far (2Freezing) }
  404. n402=      elseif (%difnum > 400) { do extremley Far (2Frost BITE!!) }
  405. n403=      if ($parm2 < %number) { do Higher }
  406. n404=      elseif ($parm2 > %number) { do Lower }
  407. n405=      %t5 = %guess - 1
  408. n406=      if ([ %trys [ $+ [ $nick ] ] ] == %t5) { relay 7((-╒zZ▀╓T-)) 3*** $nick $+ 's Last try! | do This is your last try. }
  409. n407=      elseif ([ %trys [ $+ [ $nick ] ] ] == %guess) { relay 7((-╒zZ▀╓T-)) 3*** $nick $+ 's guesses are up! | do Too bad, no more guesses | halt }
  410. n408=      elseif ([ %trys [ $+ [ $nick ] ] ] != 0) { %left = %guess - [ %trys [ $+ [ $nick ] ] ] | do %left try(s) left! } | halt
  411. n409=    }
  412. n410=  }
  413. n411=  elseif ($parm1 == !counter) {
  414. n412=    if ($parm2 == $null) { do Total that joined any channel since 5 $+ %tdate $+  :4 %total }
  415. n413=    else {
  416. n414=      %t1 = $readini join.ini channels $parm2
  417. n415=      if (%t1 == $null) { do I have no count for $parm2 }
  418. n416=      else { do Total that Joined5  $+ $parm2 $+  2since5  $+ $readini join.ini date $parm2 $+ :4 $readini join.ini channels $parm2 }
  419. n417=    }
  420. n418=  }
  421. n419=  elseif ($parm1 == !msg) {
  422. n420=    if ($parm3 == $null) { do Correct Syntax: !msg <nick> <message> | halt }
  423. n421=    elseif ($null == $read -s $+ $parm2 userchats.txt) { do $parm2 is not on the Partyline. | halt }
  424. n422=    else { msg = $+ $parm2 < $+ $nick $+ > $parm3* Private msg | halt }
  425. n423=  }
  426. n424=  elseif ($parm1 == !insult) { do $read $mIRCdiryomama.txt | cfc | inc %insult }
  427. n425=  elseif ($parm1 == !!insult) { do $read $mIRCdiryomama2.txt | cfc | inc %insult }
  428. n426=  elseif ($parm1 == !Lame) {
  429. n427=    if ($parm2 == $null) { do Correct Syntax: !lame <nick> }
  430. n428=    else { d 2On a scale from 1 to 10 $parm2* $read $mIRCdirlame.txt } | cfc | inc %lame | dccprot
  431. n429=  }
  432. n430=  elseif ($parm1 == !Dope) {
  433. n431=    if ($parm2 == $null) { do Correct Syntax: !dope <nick> }
  434. n432=    else { d 2On a scale from 1 to 10 $parm2* $read $mIRCdirdope.txt } | cfc | inc %dope | dccprot
  435. n433=  }
  436. n434=  elseif ($parm1 == %choice3) { checkvoted | inc %sucks | %nickvworst = %nickvworst $nick | dccpoll }
  437. n435=  elseif ($parm1 == %choice2) { checkvoted | inc %ok | %nickvalright = %nickvalright $nick | dccpoll }
  438. n436=  elseif ($parm1 == %choice1) { checkvoted | inc %best | %nickvbest = %nickvbest $nick | dccpoll }
  439. n437=  elseif ($parm1 == !seen) { seendcc }
  440. n438=  elseif ($parm1 == !poll) { cfc | inc %countwv | dccpoll }
  441. n439=  elseif ($parm1 == !whovoted) {
  442. n440=    %h.1 = $read -s $+ $nick hostchats.txt | %h.2 = $read -s $+ $nick userchats.txt | %v.1 = $readini voted.ini nick $nick | %v.2 = $readini voted.ini site %h.1 | %v.3 = $readini voted.ini userhost %h.2
  443. n441=    if ((%v.1 != $null) || (%v.2 != $null) || (%v.3 != $null)) { unset %per* | pervp | msg =$nick 7((-╒zZ-)) 5Topic: 8,1 $+ %vptopic | msg = $+ $nick 7((-╒zZ-))2 Voted %choice1 $+ 10( $+ %best - %perbest $+ )2 $+ :4 %nickvbest | msg = $+ $nick 7((-╒zZ-))2 Voted %choice2 $+ 10( $+ %ok - %perok $+ )2 $+ :4 %nickvalright | msg = $+ $nick 7((-╒zZ-))2 Voted %choice3 $+ 10( $+ %sucks - %persucks $+ )2 $+ :4 %nickvworst }
  444. n442=    else { msg = $+ $nick 2You must vote on the topic first to see who voted for what. } | unset %per* | cfc | inc %countwv
  445. n443=  }
  446. n444=  elseif ($parm1 == !#game) {
  447. n445=    if (%#game == ON) { do There is already a game going on. }
  448. n446=    else { %number = $rand(1,%max#) | unset part* | unset %trys* | relay 2The Number Game has just begun!! 5You get4 %guess 5tries to guess the number between4 1 5and4 %max# $+ . 5Format is:4 !#= <number> | ready | %#game = ON }
  449. n447=  }
  450. n448=  elseif ($parm1 == !sb) { sb }
  451. n449=  else { do Invalid Command }
  452. n450=}
  453. n451=1:ON CHATOPEN:/chatopen
  454. n452=1:ON CHATCLOSE:/unpl $nick | if ($nick isin %linkbots) { relay 6*** $nick and $me have unlinked | %linkbots = $remove(%linkbots,$nick) | unpl $nick } | else { relay 6*** $nick has Left ╒zZ▀╓T's PartyLine | relaybots 6*** $nick has Left ╒zZ▀╓T's PartyLine | if ($nick == %rwnick) { unset %rwnick } } | mecho 4 Lost DCC Connection with $nick
  455. n453=1:ON CHAT:*:/if ($nick isin %linkbots) { relay $parms }  | else { relay < $+ $nick $+ > $parms | relaybots < $+ $nick $+ > $parms | dccprot }
  456.